home *** CD-ROM | disk | FTP | other *** search
/ Internet Surfer: Getting Started / Internet Surfer - Getting Started (Wayzata Technology)(7231)(1995).bin / pc / mac / bonus / peter_le / finger_1 / tokens / log.p < prev    next >
Text File  |  1992-02-11  |  1KB  |  50 lines
  1. unit LOG;
  2.  
  3. interface
  4.  
  5.     uses
  6.         ParameterDef;
  7.  
  8.     procedure Main (var p: parameterRecord);
  9.  
  10. implementation
  11.  
  12.     function IPtoString (n: longInt): str255;
  13.         function bts (n: longInt; shift: integer): str255;
  14.             var
  15.                 s: str255;
  16.         begin
  17.             NumToString(BAND(BSR(n, shift), $FF), s);
  18.             bts := s;
  19.         end;
  20.     begin
  21.         IPtoString := concat(bts(n, 24), '.', bts(n, 16), '.', bts(n, 8), '.', bts(n, 0));
  22.     end;
  23.  
  24.     procedure Main (var p: parameterRecord);
  25.         var
  26.             rn: integer;
  27.             oe, ooe: OSErr;
  28.             count, secs: longInt;
  29.             s, s2: str255;
  30.     begin
  31.         GetDateTime(secs);
  32.         IUDateString(secs, shortDate, s);
  33.         IUTimeString(secs, false, s2);
  34.         s := concat(IPtoString(p.remoteIP), ' at ', s2, ', ', s, chr(13));
  35.         s2 := p.param^;
  36.         if s2 = '' then
  37.             s2 := ':Preferences:Fingerd Log';
  38.         oe := Create(s2, 0, 'ttxt', 'TEXT');
  39.         oe := FSOpen(s2, 0, rn);
  40.         if oe = noErr then begin
  41.             oe := SetFPos(rn, fsFromLEOF, 0);
  42.             if oe = noErr then begin
  43.                 count := length(s);
  44.                 oe := FSWrite(rn, count, @s[1]);
  45.             end;
  46.             ooe := FSClose(rn);
  47.         end;
  48.     end;
  49.  
  50. end.